# Code to read and examine data
library(tidyverse)
library(patchwork)
library(kableExtra)
pine_df <- read_csv("data/pine_needles.csv")
glimpse(pine_df)Rows: 48
Columns: 6
$ date <chr> "3/20/25", "3/20/25", "3/20/25", "3/20/25", "3/20/25", "3/20/2…
$ group <chr> "cephalopods", "cephalopods", "cephalopods", "cephalopods", "c…
$ n_s <chr> "n", "n", "n", "n", "n", "n", "s", "s", "s", "s", "s", "s", "n…
$ wind <chr> "lee", "lee", "lee", "lee", "lee", "lee", "wind", "wind", "win…
$ tree_no <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2,…
$ len_mm <dbl> 20, 21, 23, 25, 21, 16, 15, 16, 14, 17, 13, 15, 19, 18, 20, 23…